Option Explicit
Sub F_Sample013()
    'ոF_Data01
    Dim myRng      As Range
    Dim myFileName As String
    Set myRng = Application.InputBox _
    ("Ыwnxsd", , , , , , , 8)
    If myRng Is Nothing Then Exit Sub
    'ܡutssɡvܤ
    myFileName = Application.GetSaveAsFilename _
    (fileFilter:="CSVɮ׮榡 (*.csv), *.csv")
    If myFileName = "False" Then Exit Sub
    Application.ScreenUpdating = False
    With Worksheets.Add
        myRng.Copy .Cells(1, 1)
        .Move
    End With
    With ActiveWorkbook
        .SaveAs Filename:=myFileName, FileFormat:=xlCSV
        .Close False
    End With
    Application.ScreenUpdating = True
    Set myRng = Nothing					'
End Sub
